home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 12: Textmags & Docs / nf_archive_12.iso / MAGS / SOURCES / ATARI_SRC.ZIP / atari source / HDX_BACK / HDXPCH / DOIT.S < prev    next >
Encoding:
Text File  |  2001-02-09  |  1.8 KB  |  90 lines
  1. ;+
  2. ; Edit History
  3. ;
  4. ; May-18-89    ml.    Started this.
  5. ; Aug-21-89    ml.    Added format code.
  6. ;-
  7.  
  8. .include    "defs.h"
  9.  
  10. .extern    _spscsixst
  11.  
  12. ;+
  13. ; doscmd() - send a simple command (no DMA involved)
  14. ;
  15. ; Passed:
  16. ;    d0.w = physical unit number
  17. ;    d2.w = command length (NCMD or LCMD)
  18. ;-
  19.     .globl    _doscmd
  20.     .extern    _smplacsi
  21.     .extern    _smplspscsi
  22.     .extern    _smplscsi
  23. _doscmd:
  24.     btst    #3,d0            ; SCSI unit?
  25.     bne.s    .0            ; if so, use the SCSI protocol
  26.     bsr    _smplacsi        ; else, use the ACSI protocol
  27.     bra.s    dosend
  28. .0:    tst.b    _spscsixst        ; Sparrow SCSI?
  29.     beq.s    .1            ; if not, it's regular SCSI
  30.     bsr    _smplspscsi
  31.     bra.s    dosend
  32. .1:    bsr    _smplscsi
  33. dosend:    rts
  34.  
  35.  
  36. ;+
  37. ; dorcmd() - send a command which will receive data from the target
  38. ;
  39. ; Passed:
  40. ;    d0.w = physical unit number
  41. ;    d1.l = transfer length (in bytes)
  42. ;    d2.w = command length (NCMD or LCMD)
  43. ;    a0.l = buffer address
  44. ;-
  45.     .globl    _dorcmd
  46.     .extern    _rcvacsi
  47.     .extern    _rcvspscsi
  48.     .extern    _rcvscsi
  49. _dorcmd:
  50.     btst    #3,d0            ; SCSI unit?
  51.     bne.s    .0            ; if so, use the SCSI protocol
  52.     bsr    _rcvacsi        ; else, use the ACSI protocol
  53.     bra.s    dorend
  54. .0:    tst.b    _spscsixst        ; Sparrow SCSI?
  55.     beq.s    .1            ; if not, it's regular SCSI
  56.     bsr    _rcvspscsi
  57.     bra.s    dorend
  58. .1:    bsr    _rcvscsi
  59. dorend:    rts
  60.  
  61.     
  62. ;+
  63. ; dowcmd() - send a command which will write data to the target
  64. ;
  65. ; Passed:
  66. ;    d0.w = physical unit number
  67. ;    d1.l = transfer length (in bytes)
  68. ;    d2.w = command length (NCMD or LCMD)
  69. ;    a0.l = buffer address
  70. ;-
  71.     .globl    _dowcmd
  72.     .extern    _wrtacsi
  73.     .extern    _wrtspscsi
  74.     .extern    _wrtscsi
  75. _dowcmd:
  76.     btst    #3,d0            ; SCSI unit?
  77.     bne.s    .0            ; if so, use the SCSI protocol
  78.     bsr    _wrtacsi        ; else, use the ACSI protocol
  79.     bra.s    dowend
  80. .0:    tst.b    _spscsixst        ; Sparrow SCSI?
  81.     beq.s    .1            ; if not, it's regular SCSI
  82.     bsr    _wrtspscsi
  83.     bra.s    dowend
  84. .1:    bsr    _wrtscsi
  85. dowend:    rts
  86.  
  87.     
  88.  
  89.  
  90.